procedure TForm1.Button1Click(Sender:T);
begin
 if not Table1.Exists then
 begin
    Table1.Active       := FALSE;

    {Aqui el Alias/Here, the alias}
    Table1.DatabaseName := "Alias";

    Table1.TableType    := ttParadox;

    {Aqui el nombre de la tabla/Here, the Table name}
    Table1.TableName    := "Nombre de la Tabla";

    with Table1.FieldDefs do
 begin
      Clear;

      Add("IntegerField", ftInteger,  0, FALSE);

      Add("StringField" , ftString , 30, FALSE);

      Add("LogicalField", ftBoolean,  0, FALSE);

      Add("FloatField"  , ftFloat  ,  0, FALSE);

      Add("DateField"   , ftDate   ,  0, FALSE);

      Add("TimeField"   , ftTime   ,  0, FALSE);

    end;

    Table1.CreateTable;

  end;
end;

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)